home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / PpDecrunchEncrypt.asc < prev    next >
Text File  |  1980-03-13  |  838b  |  39 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Pp Decrunch
  13. '  -Pp Start 
  14. '  -Pp Len 
  15. '  -Pp Free  
  16. '
  17. 'Exemple des fichier crypté
  18. A$=Fsel$("")
  19. '
  20. 'Decrunch sans encryptage (-1) 
  21. A=Pp Decrunch(A$,0,-1)
  22. '
  23. 'Fichier encrypté=-4 
  24. If A=-4
  25.    Amos To Back 
  26.    'Decrunch avec demande du mot de passe 
  27.    A=Pp Decrunch(A$,0,0)
  28.    Print "Flag:";A
  29.    Amos To Front 
  30. End If 
  31. '
  32. Print "Pp Start:";Hex$(Pp Start)
  33. Print "Pp Len:";Pp Len
  34. '
  35. 'Libere la memoire SEULEMENT si le fichier a été chargé
  36. If Pp Len>0
  37.    Pp Free 
  38. End If 
  39.